* lisp/mouse.el (mouse-drag-track): Always deactivate the mark before

running the final event's command since that command is in charge of
activating the mark if needed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 066c6b650917f603f80e693220e9c2a46f6f91e1..009cecf7229cf3d88853471f712d16375d142a89 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-02-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mouse.el (mouse-drag-track): Always deactivate the mark before
+       running the final event's command since that command is in charge of
+       activating the mark if needed (bug#13523).
+
 2013-02-01  Juri Linkov  <juri@jurta.org>
 
        * replace.el (perform-replace): Move let-bindings of isearch-*

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9c7bf6f9c36f6eeeb6730a5cea39fd31290b1afc..a1aa104495aa829e542e93d9d179e1c9dbe9ad75 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -880,9 +880,9 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
                     (copy-region-as-kill (mark) (point)))))
 
          ;; Otherwise, run binding of terminating up-event.
+          (deactivate-mark)
          (if do-multi-click
              (goto-char start-point)
-           (deactivate-mark)
            (unless moved-off-start
              (pop-mark)))